#### In-Text Results: Survey Size ####

# Libraries
# library(tidyverse)
# library(here)
# library(rio)

# data_pnas = import(here("Data","data_pnas.rds"))

# Attentive Count:
data_pnas |> 
  nrow() |> 
  cat("Final Data has", x = _, "engaged respondents \n")

# Panel N
panel_n = data_pnas |>
  count(uid) |> 
  filter(n > 1) |>
  select(uid, n) |> 
  mutate(three_or_more = n > 2) |> 
  summarise(total = n(), .by = three_or_more)

panel_2 = filter(panel_n, !three_or_more) |> pull(total)
panel_3 = filter(panel_n, three_or_more) |> pull(total)

cat("Of panel respondents,", panel_2, "were surveyed twice and",
    panel_3, "were surveyed 3 or more times \n")